COMMENT ⊗   VALID 00002 PAGES 
RECORD PAGE   DESCRIPTION
 00001 00001
 00002 00002	BEGIN"MOTOR"
 00004 ENDMK
⊗;
BEGIN"MOTOR"
EXTERNAL PROCEDURE DRIVE(REAL DELTA;INTEGER BLUE,JOINT;REAL D1;INTEGER TICKS);
INTEGER I,TIME,BLUE;
INTEGER J,DEL;
REAL R;
STRING S,SL;
REAL D1,DELTA;
DEFINE DELM="1";
SETFORMAT(8,0);
SETBREAK(DELM,"()[] ,;:	",NULL,"IN");
OUTSTR("Blue OR Yellow ?");
BLUE←INCHWL="B";
D1←DELTA←I←TIME←0;
WHILE TRUE DO BEGIN
	OUTSTR("DRIVE, DELTA, JOINT, TIME
");
	IF(S←INCHWL)="?" THEN
		BEGIN
		OUTSTR("    DRIVE   DELTA
"&CVS(D1)&CVS(DELTA)&"
")END
	ELSE
	BEGIN
	SL←SCAN(S,DELM,DEL);
	R←REALSCAN(SL,DEL);
	IF DEL≠-1 THEN D1←R;
	SL←SCAN(S,DELM,DEL);
	R←REALSCAN(SL,DEL);
	IF DEL≠-1 THEN DELTA←R;
	SL←SCAN(S,DELM,DEL);
	J←INTSCAN(SL,DEL);
	IF DEL≠-1 THEN I←J-1;
	I←IF I<0 THEN 0 ELSE I;
	I←IF I>9 THEN 9 ELSE I;
	SL←SCAN(S,DELM,DEL);
	J←INTSCAN(SL,DEL);
	IF DEL≠-1 THEN TIME←J;
	TIME← IF TIME<0 THEN 0 ELSE TIME;
	DRIVE(D1-DELTA,BLUE,I,D1+DELTA,TIME);
	END
END;
END;